home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #3 / Amiga Plus CD - 1996 - No. 3.iso / demo-versionen / databaseprofessional_v3.0 / picbase / slidedia.rexx < prev    next >
OS/2 REXX Batch file  |  1995-08-10  |  825b  |  46 lines
  1. /* SlideDIA.rexx, 02.09.94 Jörg Richter */
  2. /* Slideshow aller markierten Bilder mit dem EGS Programm DIA */
  3.  
  4. OPTIONS RESULTS
  5.  
  6. effect.0 = "HALFLINE"
  7. effect.1 = "CHECKER"
  8. effect.2 = "DISSOLVE"
  9. effect.3 = "TOP"
  10. effect.4 = "BOTTOM"
  11.  
  12. ADDRESS DataBase
  13.  
  14. Request "_Effekt|_Direkt" "DIA gestartet ?"
  15. eff = RC
  16.  
  17. /* LeftTotal */
  18. weiter = 0
  19. DO WHILE weiter = 0
  20.   GetData $F1
  21.   bild = result
  22.   IF eff = 1 THEN DO
  23.     rnd = RANDOM(0,4,Time(s))
  24.     ADDRESS "rainbow"
  25.     Load bild
  26.     IF RC = 0 THEN DO
  27.       IF rnd = 2 THEN
  28.         SetDissolve RANDOM(6,24,Time(s))
  29.       IF rnd = 1 THEN
  30.         SetChecker RANDOM(6,24,Time(s)) RANDOM(6,24,Time(s))
  31.       Show effect.rnd
  32.       FreeBuffer
  33.     END
  34.   END
  35.   ELSE DO
  36.     ADDRESS "rainbow"
  37.     Open bild
  38.     ADDRESS COMMAND
  39.     'Wait 3 secs'
  40.   END
  41.   ADDRESS DataBase
  42.   RightOne
  43.   weiter = RC
  44. END
  45.  
  46.